home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1999 #5 / 1999 CD 5 (black).iso / Delphi3 / DelphiDK / code.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-02-15  |  1.2 KB  |  62 lines
  1. unit code;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     LblBesked: TLabel;
  12.     EdtGaet: TEdit;
  13.     BtnGaet: TButton;
  14.     BtnStart: TButton;
  15.     procedure BtnStartClick(Sender: TObject);
  16.     procedure BtnGaetClick(Sender: TObject);
  17.   private
  18.     { Private declarations }
  19.     tilfaeldig: Integer;
  20.     forsoeg: Integer;
  21.   public
  22.     { Public declarations }
  23.   end;
  24.  
  25. var
  26.   Form1: TForm1;
  27.  
  28. implementation
  29.  
  30. {$R *.DFM}
  31.  
  32. procedure TForm1.BtnStartClick(Sender: TObject);
  33. begin
  34.      randomize;
  35.      tilfaeldig := Random(20);
  36.      forsoeg := 0;
  37.  
  38.      LblBesked.Caption := 'Gµt et tal mellem 1 og 20';
  39.  
  40. end;
  41.  
  42. procedure TForm1.BtnGaetClick(Sender: TObject);
  43. var
  44.    gaet :Integer;
  45.  
  46. begin
  47.    gaet := StrToInt(EdtGaet.Text);
  48.    forsoeg := forsoeg + 1;
  49.  
  50.    if gaet = tilfaeldig then
  51.         LblBesked.Caption := 'Du gµttede tallet i ' +
  52.                                  IntToStr(forsoeg) + '. fors°g!';
  53.  
  54.    if gaet < tilfaeldig then
  55.       LblBesked.Caption := 'Tallet ' + IntToStr(gaet) + ' er mindre end "X"';
  56.  
  57.    if gaet > tilfaeldig then
  58.       LblBesked.Caption := 'Tallet ' + IntToStr(gaet) + ' er st°rre end "X"';
  59. end;
  60.  
  61. end.
  62.